home *** CD-ROM | disk | FTP | other *** search
- /*****************************************
- * *
- * Post-Driver, Version 1.0 (05.06.1994) *
- * *
- *****************************************/
-
- /*************
- * Arguments *
- *************/
- ARG filename dirname
-
- filename = TRANSLATE(filename, XRANGE('a','z'), XRANGE('A','Z'))
- dirname = TRANSLATE(dirname, XRANGE('a','z'), XRANGE('A','Z'))
- postfile = filename || ".ps"
-
- ADDRESS COMMAND "Delete >NIL:" postfile
- ADDRESS COMMAND Rename filename postfile
-
- ADDRESS COMMAND "SYS:TeX/Post/Post SYS:TeX/Post/init.ps" postfile "SCREEN"
-
- EXIT
-